home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503d.d64 / toedl. dioxin (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  20KB  |  473 lines
  1. 100 REM *******************************
  2. 110 REM *******************************
  3. 120 REM **                           **
  4. 130 REM **     TOEDLICHES DIOXIN     **
  5. 140 REM **                           **
  6. 150 REM **            VON            **
  7. 160 REM **                           **
  8. 170 REM **        MARKUS BODE        **
  9. 180 REM **                           **
  10. 190 REM **      &  MARIO BRUNOW      **
  11. 200 REM **                           **
  12. 210 REM **      3200 HILDESHEIM      **
  13. 220 REM **                           **
  14. 230 REM **    COPYRIGHT APRIL 1985   **
  15. 240 REM **                           **
  16. 250 REM *******************************
  17. 260 REM *******************************
  18. 270 POKE646,14:POKE53280,6:POKE53281,6:POKE53273,113:IFPEEK(172)<>0THEN390
  19. 280 PRINT"[147]MOMENT BITTE"
  20. 290 V=53248:S=54272:POKE53275,0:POKE1,55
  21. 300 POKE50168,18:POKE50169,19:POKE50170,20:POKE53281,6
  22. 310 FORA=STOS+24:POKEA,0:NEXTA
  23. 320 FORI=50304TO50304+62:READQ:POKEI,Q:NEXT
  24. 330 FORJ=50368TO50368+62:READP:POKEJ,P:NEXT
  25. 340 FORL=50432TO50432+62:READM:POKEL,M:NEXTL
  26. 350 FORW=50496TO50496+62:READM:POKEW,M:NEXTW
  27. 360 FORI=57344TO57344+1039:READF:POKEI,F:NEXT
  28. 370 FORP=25001TO25001+70:READY:POKEP,Y:NEXT
  29. 380 FORI=28672TO29230:READY:POKEI,Y:NEXT:
  30. 390 SYS28672
  31. 400 POKE247,115:POKE248,115:POKE250,118:POKEV+21,0:A=2:H=255:POKE171,0:VC=0
  32. 410 V=53248:S=54272:POKE53275,0:POKE172,1:POKE171,0:POKE180,0:SYS28672
  33. 420 FORI=2TO6
  34. 430 A1(I)=INT(RND(0)*5)+1
  35. 440 FORJ=1TOI-1:IFA1(I)=A1(J)THEN430
  36. 450 NEXTJ,I:POKE181,34:U=0:A=2:H=255:N2=0:VC=0:JK=0
  37. 460 POKEV+21,0
  38. 470 V=53248:S=54272:POKE53275,0:POKE172,1:POKE171,0:POKE180,0:SYS28672
  39. 480 SYS28949
  40. 490 FORK=0TO4:POKE50171+K,21:POKEV+42+K,1 :NEXT
  41. 500 POKEV+39,1:POKEV+29,7:POKEV+28,7:POKEV+37,14:POKEV+38,0
  42. 510 POKEV+40,14:POKE170,0:PRINTCHR$(8)
  43. 520 POKES+7,12:POKES+8,2:POKES+9,0:POKES+10,4:POKES+11,0:POKES+12,0
  44. 530 POKES+13,192
  45. 540 POKES+21,0:POKES+22,5:POKES+23,10:POKES+24,31
  46. 550 POKES+11,65:POKES+18,65
  47. 560 POKES+5,9:POKES+6,2
  48. 570 IFAL=0THENAL=2:GOSUB4570
  49. 580 POKEV,39:POKEV+1,193:POKEV+2,39:POKEV+3,193:POKEV+16,0
  50. 590 N1=INT(RND(0)*3)+2
  51. 600 IFA<3THENA=A-1:GOSUB1460:GOTO630
  52. 610 POKE56576,PEEK(56576)AND252:POKE53272,8:POKE648,192:A=A-1
  53. 620 POKEV+31,0:POKE171,0:GOTO690
  54. 630 POKEV+31,0:POKEV+21,249ANDHOR1:POKE171,0:H=255
  55. 640 SYS29033:SYS29102:POKE56294,5
  56. 650 TI$="000000":POKE171,0
  57. 660 X1=PEEK(170)
  58. 670 IFX1=0THEN700
  59. 680 IFA=7THEN1070
  60. 690 POKE170,0:ONA1(A)GOTO1730,2060,2370,2680,3000
  61. 700 M1=PEEK(171):IFM1<>0THEN820
  62. 710 M2=PEEK(180)
  63. 720 IFM2<>0THENPOKES+18,17:FORJ=1TO120:NEXT:POKES+18,0:POKE180,0:VC=VC+1
  64. 730 IFTI>ABTHENU=U+1:POKE181,34-U:POKE50112-U,32:TI$="000000":N2=N2+.5
  65. 740 POKE247,PEEK(50119):POKE248,PEEK(50120)
  66. 750 IFU=34THEN820
  67. 760 IFN2>=N1-1THENPOKE56294,10
  68. 770 IFN2>=N1-.5THENPOKES+11,129
  69. 780 IFN2=N1THEN1030
  70. 790 POKES+1,6:POKES+5,0:POKES,177:POKES+4,65:POKES+4,32
  71. 800 SYS28975:FORB=1TO20:NEXTB:SYS29006
  72. 810 GOTO660
  73. 820 POKEV+37,0:POKEV+38,2:POKEV+41,7:H=PEEK(V+21)AND248
  74. 830 POKEV+4,PEEK(V):POKEV+5,PEEK(V+1)
  75. 840 POKEV+21,PEEK(V+21)AND252:POKEV+21,PEEK(V+21)OR4
  76. 850 FORP=STOS+24:POKEP,0:NEXTP:SYS28913
  77. 860 FORC=1TO1000:NEXT:POKEV+21,0:POKES+24,0
  78. 870 IFU=34THEN1250
  79. 880 IFPEEK(250)<116THEN1250
  80. 890 GOTO920
  81. 900 POKE53272,21:PRINT"[147]":POKEV+21,0:POKES+24,0:POKE646,14:POKE56576,151
  82. 910 POKE648,4:PRINT"[147]":END
  83. 920 PRINT"[155][147][161][223][170] [223][220][164][161][218][167][168][172][220][170] [161][171][172] [219][173][170][218][223] [165][220][166][171][218][223][164][161][218][223][220][171] "
  84. 930 PRINT"[174][220][170][171][216][255][220][166] [220][176][168][164][167][219][161][220][170][172]A[146]
  85. 940 [153]"(null)/(null)+ SINSGN<<< (null)(null)TAB(THENFNFN(null)SPC( -GET(null) (null)GETSPC((null)SPC( SPC((null)/(null)SPC(AWAIT
  86. 950 PRINT""TAB(14)"[221][220][173][220][170][163][166][167][168][221]"
  87. 960 WAIT56320,16,16:POKE250,PEEK(250)-1
  88. 970 D1=PEEK(247):D2=PEEK(248)
  89. 980 IFD2=115ANDD1>115THENPOKE247,PEEK(247)-1:POKE248,PEEK(248)+9:GOTO1000
  90. 990 POKE248,PEEK(248)-1
  91. 1000 IFPEEK(247)<115THENPOKE247,115
  92. 1010 IFPEEK(248)<115THENPOKE248,115
  93. 1020 N2=0:GOTO460
  94. 1030 POKEV+22,207:FORL=1TO101:NEXT:POKEV+17,31:FORL=1TO101:NEXT:POKEV+17,28
  95. 1040 FORL=1TO101:NEXT:POKEV+22,204:FORL=1TO101:NEXT:POKEV+17,25
  96. 1050 FORL=1TO101:NEXT:POKEV+22,200:FORL=1TO101:NEXT:POKEV+17,27
  97. 1060 N2=0:N1=INT(RND(0)*3)+2:POKE56294,5:POKES+11,65:GOTO660
  98. 1070 POKEV+21,0:IFVC<30THEN1250
  99. 1080 FORL=1TO500:NEXT
  100. 1090 PRINT"[155][147][175][161][170] [217][220][255][164][173][220][218][163][175][173][220][166][171][218][223][220][166] [171][161][220] [219][216][178][173]@[146][219][216][171][171] [171][161][220]
  101. 1100 [153]"(null)GET(null)-(null)SPC( /(null)(null)(null)+(null)/- -(null)(null)AND(null)+(null)SPC( (null)/(null)*+(null)(null)@WAIT(null)TOTO(null)SPC(
  102. 1110 PRINT"[255][220][221][216][223][170][220][166] [173][166][219] [171][218][223][175][161][220][170][161][255][163][220][161][172][220][166] [178][173][165] [172][170][167][172][178]@[146]
  103. 1120 [153]"THEN+(null)SPC(/SPC((null)-(null)(null)FN(null)(null)-- (null)+TO(null)(null)GET(null)* (null)(null)(null)(null)SPC(AWAIT
  104. 1130 PRINT"[175][220][255][220][166] [161][223][170][220][171] [165][173][172][220][171] [173][166][219] [161][223][170][220][171] [163][167][220][166][166][220][166][171]
  105. 1140 [153]"TAB((null)SPC(SPC( FN(null)SPC( -GET(null) ANDTHEN(null)TO THEN(null)SPC((null) =AND(null)GET(null)(null)TO (null)(null)SPC(
  106. 1150 PRINT"[172][167][164][164][163][173][220][223][166][171][172][220][166][160][168][161][164][167][172][220][166] [216][164][164][220][170][160][178][220][161][172][220][166]
  107. 1160 [153]"LISTSPC((null)SPC(SPC((null)SPC(AWAIT
  108. 1170 PRINT"[175][220][166][166][160][171][161][220][160][216][164][164][220][160][255][220][221][216][223][170][220][166][160][166][167][218][223] [220][161][166][165][216][164] [161][166]
  109. 1180 [153]"(null)GETSPC((null)+CLOSETAB(/(null)+=(null)+(null)SPC( =(null)GET* (null)/(null) -GET(null)(null) SPC((null)(null)FN(null)SPC(
  110. 1190 PRINT"[175][167][164][164][220][166]@[146][219][216][166][166][160][219][170][173][220][218][163][220][166][160][171][161][220][160][221] [180]A[146]
  111. 1200 [153]"ANDTHENTOTO(null)SPC(CLOSE-GET(null)CLOSE-GET(null)(null)CLOSE(null)(null)(null)+ (null)/(null) GET(null)+(null)SPC( TOTHEN+(null)(null)(null)+(null)SPC(
  112. 1210 PRINT"[145][216][173][171][170][173][223][220][166]@[146][219][216][166][166][160][219][170][173][220][218][163][220][166] [171][161][220][160][220][161][166][220][160][216][166][219][220][170][220]A[146]
  113. 1220 [161]N$:[139]N$[178]""[167]1220
  114. 1230 [139]N$[178]"INPUT"[167]AB[178]AB[171]10:U[178]0:VC[178]0:[151]181,34:[151]250,118:G[178]G[171]7:[137]420
  115. 1240 [137]900
  116. 1250 [151]V[170]21,0
  117. 1260 [129]L[178]1[164]500:[130]
  118. 1270 [153]"LISTLOAD-GET(null)CLOSE(null)(null)(null)(null)SPC(CLOSE(null)-CLOSETO(null)GET(null)(null)+CLOSESPC(GET(null)(null)* (null)(null)-(null)(null)(null)(null)(null)*
  119. 1280 PRINT"[216][164][164][220][160][255][161][221][172][161][255][220][166] [219][161][167][176][161][166][221][216][220][171][171][220][170] [216][173][171] [219][220][170]
  120. 1290 [153]"(null)(null)(null)(null)(null)+(null)SPC(=THENSPC((null)CLOSE=/CLOSE(null)SPC(*(null)SPC(+SPC((null)SPC(AWAIT
  121. 1300 PRINT"[172][170][167][172][178][219][220][165] [219][216][170][221] [161][223][170][220] [165][173][172][161][255][220] [221][164][161][220][255][220][170][161][171][218][223][220]
  122. 1310 [153]"TO(null)GET-*/SPC((null) SPC(GET(null)(null)* ^(null)+(null)(null)(null)*(null)*CLOSEAND(null)+(null)(null)SPC(@WAIT(null)(null)SPC(SPC(
  123. 1320 PRINT"[161][165][165][220][170][223][161][166][160][175][216][170][160][219][161][220][160][171][172][170][220][218][163][220][160][174][167][164][164][160][174][167][166]
  124. 1330 [153]"(null)(null)(null)(null)(null)+(null)SPC(CLOSE/SPC((null) -(null)(null)ANDGET(null)+GET(null)TAB((null)GET*(null)SPC(@WAIT/SPC((null) -GET(null)CLOSE
  125. 1340 PRINT"[223][216][217][220][166][160][161][223][170] [165][220][166][171][218][223][220][166][165][167][220][255][164][161][218][223][220][171][160][255][220][172][216][166]A[146]
  126. 1350 [153]"AND(null)SPC(SPC(CLOSE-GET(null)CLOSE(null)TOTO(null)CLOSE(null)(null)(null)(null)(null)+(null)SPC(CLOSESPC(THEN(null)(null)CLOSE(null)GETSPC(FN(null)TO (null)/(null)
  127. 1360 PRINT"[171][161][218][223][160][166][220][223][165][220][166][160][175][167][164][164][220][166][160][173][166][219][160][220][161][166][220][166][160][166][220][173][220][166][160]
  128. 1370 [153]"^(null)+-/(null)(null)CLOSEAND(null)(null)(null)SPC(CLOSEANDTHENTOTO(null)SPC(@WAIT(null)(null)SPC(SPC(CLOSE(null)+/(null)(null)TAB((null)SPC(CLOSE-GET(null)
  129. 1380 PRINT"[217][161][172][172][220] [221][160][180]A[146]
  130. 1390 [153]"*+(null)/(null)SPC(CLOSE-GET(null)CLOSE-GET(null)(null)CLOSE(null)GET(null)-(null)CLOSE-*+(null)NOT(null)=(null) (null)(null)(null)+
  131. 1400 PRINT"[166][161][218][223][172][160][220][161][166][160][175][220][161][172][220][170][220][171][160][165][216][164][160][178][173]@[146][219][216][166][166][160][219][170][173][220][218][163][220][166]
  132. 1410 [153]"-GET(null)CLOSEGET+(null)(null)SPC((null)(null)GETSPC((null)CLOSE(null)SPC((null)(null)+(null)CLOSE*(null)-*(null)AWAIT
  133. 1420 GETN$:IFN$=""THEN1420
  134. 1430 IFN$="[133]"THENU=0:POKE181,34:POKE250,118:POKE247,115:POKE248,115:GOTO420
  135. 1440 GOTO900
  136. 1450 END
  137. 1460 POKE56576,PEEK(56576)AND252:POKE53272,8:POKE648,192
  138. 1470 REM BILD NR.1
  139. 1480 POKE167,12:POKE168,40:POKE169,0:A=A+1
  140. 1490 POKE646,G:PRINT"[147]@GADEGDAG@DEAAGGAG@@GADEGDAGAA@@A@@@GDEB"
  141. 1500 PRINT"[145]                                       0"
  142. 1510 PRINT"[145]                                       0"
  143. 1520 PRINT"[145]                                  1    /"
  144. 1530 PRINT"[145]                                 2S3   0"
  145. 1540 PRINT"[145]*                                4S5   /"
  146. 1550 PRINT"[145]$Z[\Z&        6[Z\]^^]^_!ZY[\Z[]#SSS$Z[#"
  147. 1560 PRINT"[145]SSSSSS        SSSSSSSSSSSSSSSSSSSSSSSSSS"
  148. 1570 PRINT"[145]JABCDE        @AGAHIEAG@7ADE7@BIGAGDE8AB"
  149. 1580 PRINT"[145], LM              OP          LP     9 /"
  150. 1590 PRINT"[145].                 QR                   /"
  151. 1600 PRINT"[145].                                      /"
  152. 1610 PRINT"[145],        :;                            0"
  153. 1620 PRINT"[145]$Y[\]^_!Z#$[\]^__!YZ[&           !ZY[\]#"
  154. 1630 PRINT"[145]SSSSSSSSSSSSSSSSSSSSSST         USSSSSSS
  155. 1640 [153]"ONFABCADEABFGDAGDHIEAGBJK         @BIGADEB
  156. 1650 PRINT"[145], LM    LN     OP   LM           QR    /"
  157. 1660 PRINT"[145],              QR                      0"
  158. 1670 PRINT"[145].                              )*      /"
  159. 1680 PRINT"[145],                        %&    '(      0"
  160. 1690 PRINT"[145]+VSSSSSSWYZ[\]^____!Z[Y\]#S$[Y\#$[]_^_!#
  161. 1700 [151]V[170]31,0:[151]171,0:[151]V[170]6,180:[151]V[170]7,84:[151]V[170]8,68:[151]V[170]9,139
  162. 1710 [151]V[170]10,250:[151]V[170]11,193:[151]V[170]12,130:[151]V[170]13,139:[151]V[170]14,45
  163. 1720 [151]V[170]15,81:[142]
  164. 1730 [143] BILD NR.2
  165. 1740 [151]V[170]21,0
  166. 1750 [151]646,G:[153]"LOADSSSSSSSSSSSSSSSSSSSS<K@ADEGAGKADGAG@AGBS"
  167. 1760 [153]"ONS<K@AGADEG@AK=SSSSS>"
  168. 1770 [153]"?             TANSSS?"
  169. 1780 [153]".             /SS?"
  170. 1790 [153]"-             US>          !YZ[\]^__!Z#S"
  171. 1800 [153]"ON,       %[ZY\#S?          ATNSSSSSSSSSSSSS"
  172. 1810 [153]"ON.       QADEGB>          PEEKSSSSSSSSSSSSSS"
  173. 1820 [153]"ON-                       LENAGA@DEGA@AGBSSS"
  174. 1830 [153]"ON,                      ATN-           /SSS"
  175. 1840 [153]"ON.                     PEEKS.           0SSS"
  176. 1850 [153]"ONSTR$[ZY\]^_![VAL        %\#SS,           QAGH"
  177. 1860 [153]"ONSSSSSSSSSS-        0SSSSSTR$YZ[VAL          0"
  178. 1870 [153]"ONSSSSSSSSSSASC        /SSSSSSSS.          /"
  179. 1880 [153]"ONSSSSSSSSS>         0SSSSSSSS-          0"
  180. 1890 [153]"ONSSSSSSSS?          PEEKSSSSSSSSSTR$YZVAL       /"
  181. 1900 [153]"ONSSSSSSS>          CHR$E@BCAGAABSSS-       0"
  182. 1910 [153]"ONDE@AGGE              LM     @DE        /"
  183. 1920 [153]"ON                                       0"
  184. 1930 [153]"ON                                       /"
  185. 1940 [153]"ON                             %&        0"
  186. 1950 [153]"ONYZ[\YZ[\Z[\]Z[YYZ[\]^____![Y]#S&ZY[\]Z[#"
  187. 1960 [151]167,12:[151]168,170:[151]169,128:A[178]A[170]1:[151]170,0
  188. 1970 [151]V[170]16,135:[151]V,25:[151]V[170]1,60:[151]V[170]2,25:[151]V[170]3,60
  189. 1980 [151]V[170]6,103:[151]V[170]7,72:[151]V[170]8,223:[151]V[170]9,120:[151]V[170]10,253:[151]V[170]11,144
  190. 1990 [151]V[170]12,29:[151]V[170]13,112:[151]V[170]14,45:[151]V[170]15,193
  191. 2000 [151]V[170]21,250[175]H[176]2:H[178]255
  192. 2010 [129]T[178]1[164]80:[130]:[151]49231,72:[151]55375,1:[129]T[178]1[164]80:[130]
  193. 2020 [151]49271,72:[151]55415,1:[129]T[178]1[164]80:[130]:[151]49311,72:[151]55455,1
  194. 2030 [151]V[170]31,0:[151]171,0
  195. 2040 [137]640
  196. 2050 [143] BILD NR.3
  197. 2060 [151]V[170]21,0
  198. 2070 [151]646,G:[153]"LOADGADEAG@BCDEG@KGA@K@AGADEA@GAGDEAAG@G@=SS"
  199. 2080 [153]"ON       LM                             RIGHT$S"
  200. 2090 [153]"ON                                       TAN"
  201. 2100 [153]"ON                                       /"
  202. 2110 [153]"ONSMID$              %&        :;           /"
  203. 2120 [153]"ONSS$[YZ[\]^___!Z[#S$[Y\[]_!#$[\Z&       0"
  204. 2130 [153]"ONSS<AG@GADEGAKGA@DEGAGDAGADEAGAG(null)       /"
  205. 2140 [153]"ONS>                             7       0"
  206. 2150 [153]"ON,                                      /"
  207. 2160 [153]"ON-                                      0"
  208. 2170 [153]"ON.        %[ZY\]^__![ZY\[\              /"
  209. 2180 [153]"ON-        /SSSSSSSSSSSSSSSMID$             0"
  210. 2190 [153]"ON+        QAGAG=SSSSSSSSSSSMID$     )*     /"
  211. 2200 [153]"ONSMID$             @AGADEAG=SSSMID$    '(  6ZY#"
  212. 2210 [153]"ONSSMID$                     RIGHT$SSS$YZ[#$Z#SSSS"
  213. 2220 [153]"ONSSSMID$                     RIGHT$SSSSSSSSSSSSSS"
  214. 2230 [153]"ONSSSS$YZZ[\]^__!Z&          @AGADE@AGA@BS"
  215. 2240 [153]"ONSSSSSSSSSSSSSSSSSMID$                      "
  216. 2250 [153]"ONSSSSSSSSSSSSSSSSSSMID$                     "
  217. 2260 [153]"ONSSSSSSSSSSSSSSSSSSSMID$                    "
  218. 2270 [153]"ONSSSSSSSSSSSSSSSSSSSS$YZ[\]^_____!Z[Y\[#S"
  219. 2280 [151]V[170]16,7:[151]V,25:[151]V[170]1,190:[151]V[170]2,25:[151]V[170]3,190
  220. 2290 [151]167,12:[151]168,40:[151]169,0:A[178]A[170]1:[151]170,0
  221. 2300 [151]V[170]6,255:[151]V[170]7,146:[151]V[170]8,67:[151]V[170]9,161:[151]V[170]10,147:[151]V[170]11,115
  222. 2310 [151]V[170]12,46:[151]V[170]13,73:[151]V[170]14,246:[151]V[170]15,73
  223. 2320 [151]V[170]21,250[175]H[176]2:H[178]255
  224. 2330 [129]T[178]1[164]80:[130]:[151]49871,72:[151]56015,1:[129]T[178]1[164]80:[130]
  225. 2340 [151]49911,72:[151]56055,1:[129]T[178]1[164]80:[130]:[151]49951,72:[151]56095,1
  226. 2350 [151]V[170]31,0:[151]171,0
  227. 2360 [137]640
  228. 2370 [143] BILD NR.4
  229. 2380 [151]V[170]21,0
  230. 2390 [151]646,G:[153]"LOADSSSSSSSSSSSSS<ADEGA@AG@K@GABCAG@GDEAG@BS"
  231. 2400 [153]"ONSSSSSSSSSSSS?              LN           "
  232. 2410 [153]"ONSSSSSSSSSSSS.                           "
  233. 2420 [153]"ONSSSSSSSSSSSS-                           "
  234. 2430 [153]"ONSSSSSSSSSSSS,       %[\YZ[YYZZ\[]YZZ\Y#S"
  235. 2440 [153]"ONJGAG@GAABCGA(null)       /SSSSSSSSSSSSSSSSSSS"
  236. 2450 [153]"ON,       LN          0SSSSSSSSSSSSSSSSSSS"
  237. 2460 [153]"ON-                   QAGA@AGA@ABC@AGKGAGB"
  238. 2470 [153]"ON.                             LN       /"
  239. 2480 [153]"ON$YZ[\YZYZ[]YVAL                          0"
  240. 2490 [153]"ON@GAGKG@GAGKG(null)         %&               /"
  241. 2500 [153]"ON                    %Y#S$YZYZ[]\YYZZ[\]#"
  242. 2510 [153]"ON                    QAGA@AGABC@GDEA@GAGB"
  243. 2520 [153]"ON                            LN         /"
  244. 2530 [153]"ONYZ[VAL       %VAL                          0"
  245. 2540 [153]"ONSSS,       /+                          /"
  246. 2550 [153]"ONSSS-       0SMID$          %YZYZYY[\YZZ]\Y#"
  247. 2560 [153]"ONSSS.       /SSMID$         QK@K@GAGA@GAKG@B"
  248. 2570 [153]"ONSSS$[\[YZ[\[SSSMID$                       /"
  249. 2580 [153]"ONSSSSSSSSSSSSSSSSMID$                      0"
  250. 2590 [153]"ONSSSSSSSSSSSSSSSSS$YZ[\]YYZZZYYZ[]\ZYZY[#"
  251. 2600 [151]167,12:[151]168,105:[151]169,96:A[178]A[170]1:[151]170,0
  252. 2610 [151]V[170]16,103:[151]V,25:[151]V[170]1,60:[151]V[170]2,25:[151]V[170]3,60
  253. 2620 [151]V[170]6,30:[151]V[170]7,105:[151]V[170]8,54:[151]V[170]9,177:[151]V[170]10,28:[151]V[170]11,193
  254. 2630 [151]V[170]12,55:[151]V[170]13,122:[151]V[170]14,255:[151]V[170]15,161
  255. 2640 [151]V[170]21,250[175]H[176]2:H[178]255
  256. 2650 [129]T[178]1[164]80:[130]:[151]49231,72:[151]55375,1:[129]T[178]1[164]80:[130]
  257. 2660 [151]49271,72:[151]55415,1:[129]T[178]1[164]80:[130]:[151]49311,72:[151]55455,1
  258. 2670 [151]V[170]31,0:[151]171,0:[137]640
  259. 2680 [143] BILD NR.5
  260. 2690 [151]V[170]21,0
  261. 2700 [151]646,G:[153]"LOADCGAG@KGDEGAAG@AG@KDEGAG@KGDEGAGAABSSSSSS"
  262. 2710 [153]"ON,                                /SSSSSS"
  263. 2720 [153]"ONN                                /SSSSSS"
  264. 2730 [153]"ON        %(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)       0SSSSSS"
  265. 2740 [153]"ON        /,                       /SSSSSS"
  266. 2750 [153]"ON3       /-                       QAGAAGB"
  267. 2760 [153]"ON,       /$YYZZ[\VAL       )*             /"
  268. 2770 [153]"ON-       0CGAG@KG(null)       /.             0"
  269. 2780 [153]"ON,       0,              0-       %YYZZY#"
  270. 2790 [153]"ON.       /-              /.       /SSSSSS"
  271. 2800 [153]"ON,       0.       %YZ[\YZ#-       0SSSSSS"
  272. 2810 [153]"ON-       /,       QGAG@KGB,       /SSSSSS"
  273. 2820 [153]"ON-       0-              /.       0SSSSSS"
  274. 2830 [153]"ON,       /.              0-       /SSSSSS"
  275. 2840 [153]"ON.       0,              0-       QGAGA=S"
  276. 2850 [153]"ON-       /$YZZYY[YZYZYY[Y#,              "
  277. 2860 [153]"ON,       QGAG@KGA@A@KKAG@B-              "
  278. 2870 [153]"ON-                       0.              "
  279. 2880 [153]"ON,                       /,       %ZYYZ#S"
  280. 2890 [153]"ON,                       /,       /SSSSSS"
  281. 2900 [153]"ON$YYZYZYZZY[YYZZZY[\YYZZY#$Y[YYZZY#SSSSSS"
  282. 2910 [151]167,12:[151]168,40:[151]169,128:A[178]A[170]1:[151]170,0:X1[178]0:[151]V[170]16,135
  283. 2920 [151]V,23:[151]V[170]1,172:[151]V[170]2,23:[151]V[170]3,172
  284. 2930 [151]V[170]6,103:[151]V[170]7,82:[151]V[170]8,103:[151]V[170]9,154
  285. 2940 [151]V[170]10,194:[151]V[170]11,114:[151]V[170]12,160:[151]V[170]13,193
  286. 2950 [151]V[170]14,50:[151]V[170]15,98
  287. 2960 [151]V[170]21,250[175]H[176]2:H[178]255
  288. 2970 [129]T[178]1[164]80:[130]:[151]49791,72:[151]55935,1:[129]T[178]1[164]80:[130]
  289. 2980 [151]49831,72:[151]55975,1:[129]T[178]1[164]80:[130]:[151]49871,72:[151]56015,1
  290. 2990 [151]V[170]31,0:[151]171,0:[137]640
  291. 3000 [143] BILD NR.6
  292. 3010 [151]V[170]21,0
  293. 3020 [151]646,G:[153]"LOADSSSSSSSSSSSSSS<GAGAGGAA@KGDEAGAGGDEAGGAB"
  294. 3030 [153]"ONSSSSSSSSSSSSS>                         0"
  295. 3040 [153]"ONSSSSSSSSSSSS>                          /"
  296. 3050 [153]"ONSSSSSSSSSSS?                       %YZY#"
  297. 3060 [153]"ONJGAG@KGAGB>          '(            QAGBS"
  298. 3070 [153]"ON.                  !Y#$Y&               "
  299. 3080 [153]"ON.                 ATNSSSSSSMID$              "
  300. 3090 [153]"ON-       (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)GAG@KGAA(null)             "
  301. 3100 [153]"ON-                         0$YYZZ[\[YYY#S"
  302. 3110 [153]"ON-                         0SS<AGGAA@KGAB"
  303. 3120 [153]"ON.       (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)YZ[\[YYY#S?          /"
  304. 3130 [153]"ON.                RIGHT$SSSSSSSSS?           /"
  305. 3140 [153]"ONN                 RIGHT$SSSSSSS?            0"
  306. 3150 [153]"ON                   DGGGAGE             /"
  307. 3160 [153]"ON                                       0"
  308. 3170 [153]"ON3       %YZZ&                          0"
  309. 3180 [153]"ON.       /SSSS$YZYZ[Y\[YZZZZYYZYVAL       /"
  310. 3190 [153]"ON.       QGAGADEGDEDGA@KG@AGGAAG(null)       /"
  311. 3200 [153]"ON,                                      0"
  312. 3210 [153]"ON.                                      /"
  313. 3220 [153]"ON$YZYYZ[\]^_____![YYYZYZZZZY[\[YZZYZ[\YZ#"
  314. 3230 [151]167,12:[151]168,85:[151]169,64:A[178]A[170]1:[151]170,0:[151]V[170]16,71
  315. 3240 [151]V,25:[151]V[170]1,95:[151]V[170]2,25:[151]V[170]3,95
  316. 3250 [151]V[170]6,200:[151]V[170]7,114:[151]V[170]8,250:[151]V[170]9,193:[151]V[170]10,95 :[151]V[170]11,153
  317. 3260 [151]V[170]12,60:[151]V[170]13,57
  318. 3270 [151]V[170]14,115:[151]V[170]15,87
  319. 3280 [151]V[170]21,250[175]H[176]2:H[178]255
  320. 3290 [151]49391,72:[151]55535,1:[129]T[178]1[164]80:[130]:[151]49431,72:[151]55575,1
  321. 3300 [129]T[178]1[164]80:[130]:[151]49471,72:[151]55615,1
  322. 3310 [151]V[170]31,0:[151]171,0
  323. 3320 [137]640
  324. 3330 [143] SPRITE NR.1
  325. 3340 [131]0,0,0,0,0,0,21,85,85,0,4,0,0,12,0,64,63,0,64,255,0,255,250,0,255,242
  326. 3350 [131]128,64,242,192,64,240,192,0,63,192,0,63,0,0,12,0,0,4,16,1,85,64,0
  327. 3360 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0
  328. 3370 [143] SPRITE NR.2
  329. 3380 [131]0,0,0,0,0,0,170,170,168,0,32,0,0,48,0,0
  330. 3390 [131]252,2,0,255,2,0,95,255,1,79,255,3,79,2,3,15
  331. 3400 [131]2,3,252,0,0,252,0,0,48,0,8,32,0,2,170,128
  332. 3410 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  333. 3420 [143] SPRITE NR.3
  334. 3430 [131]0,0,0,0,0,0,0,0,0,8,8,0,6,54,0,3
  335. 3440 [131]107,64,10,237,176,26,170,152,13,154,96,58,235,128,170,166
  336. 3450 [131]144,118,110,180,43,170,104,6,150,174,3,174,153,9,169,184
  337. 3460 [131]3,74,164,0,1,144,0,0,144,0,0,0  ,0,0,0
  338. 3470 [143] SPRITE NR.4
  339. 3480 [131]0,0,0,0,0,0,0,0,0,0,0,0
  340. 3490 [131]0,0,0,0,0,0,0,0,0,0,0,0
  341. 3500 [131]0,0,0,0,0,0,15,129,240,16,66,8
  342. 3510 [131]24,195,24,39,36,228,32,36,4,39,36,228
  343. 3520 [131]34,36,68,45,165,180,37,36,164,32,36,4,63,231,252
  344. 3530 [143] DATAS ZEICHENSATZ
  345. 3540 [131]255,127,31,0,0,0,0,0,255,255,252,60,0,0,0,0,255,255,63,7,7,7,3,3
  346. 3550 [131]255,255,251,240,240,240,224,224,255,255,127,31,15,7,0,0
  347. 3560 [131]255,255,254,252,248,224,128,0,255,255,255,252,248,248,240,240
  348. 3570 [131]255,255,227,128,0,0,0,0,255,255,255,255,255,255,63,63
  349. 3580 [131]255,255,255,255,255,254,252,248,255,255,255,254,252,240,224,224
  350. 3590 [131]255,254,248,0,0,0,0,0,3,3,3,1,1,1,0,0
  351. 3600 [131]224,224,192,128,128,128,0,0,240,224,192,192,192,128,128,0
  352. 3610 [131]63,31,31,15,15,7,7,7,248,240,224,224,192,192,192,192
  353. 3620 [131]7,7,3,1,0,0,0,0,192,192,128,128,0,0,0,0
  354. 3630 [131]255,255,255,255,255,255,255,255,224,240,248,252,252,254,254,255
  355. 3640 [131]3,3,7,15,31,127,255,255,1,3,7,15,31,63,127,255
  356. 3650 [131]128,192,224,240,248,252,254,255,0,0,0,0,0,46,127,255
  357. 3660 [131]0,0,0,0,97,255,255,255,0,0,0,1,143,255,255,255
  358. 3670 [131]0,0,0,192,252,255,255,255,0,0,0,0,112,252,255,255
  359. 3680 [131]0,0,0,0,0,96,255,255,0,0,0,0,0,0,194,255,0,0,0,0,0,0,131,255,,,,,,,,,
  360. 3690 [131]0,0,0,0,7,63,255,255,,,,,,,,7,7,7,15,31,63,255,255
  361. 3700 [131]224,224,248,254,255,255,255,255,0,0,0,1,3,3,7,7
  362. 3710 [131]0,0,224,248,252,254,254,255,3,3,3,3,3,7,7,7
  363. 3720 [131]192,192,192,192,224,224,224,224,0,0,0,0,1,1,3,3,0,0,0,0,128,192,192,192
  364. 3730 [131]240,240,248,248,252,254,254,255,240,240,248,240,240,224,224,240
  365. 3740 [131]240,248,240,240,224,240,224,224,224,224,248,248,252,248,240,240
  366. 3750 [131]3,7,15,15,15,7,15,15,15,15,31,63,31,15,7,7
  367. 3760 [131]24,60,60,62,126,126,126,255,1,3,7,7,15,15,31,63
  368. 3770 [131]128,192,192,224,224,240,248,252
  369. 3780 [131]63,63,127,127,127,127,255,255,251,251,251,254,254,255,255,255
  370. 3790 [131]0,0,7,15,63,127,127,255,127,255,126,126,126,62,62,24
  371. 3800 [131]255,255,127,124,124,252,254,255,255,255,255,126,126,124,124,24
  372. 3810 [131]1,1,3,3,3,7,7,7,128,128,192,192,192,192,224,224
  373. 3820 [131]255,255,255,248,240,224,192,128
  374. 3830 [131]255,255,255,255,31,7,3,1,255,254,252,252,252,248,224,128
  375. 3840 [131]255,254,252,240,224,192,128,128
  376. 3850 [131]255,127,31,15,15,15,7,7,1,3,15,31,63,127,127,255
  377. 3860 [131]1,3,3,7,15,31,63,255,1,7,15,15,62,120,248,248
  378. 3870 [131]240,240,240,252,255,255,255,255
  379. 3880 [131]0,0,0,128,240,240,240,240,240,240,240,248,240,224,192,128
  380. 3890 [131]1,31,63,127,127,31,1,0,56,56,56,56,56,56,56,56
  381. 3900 [131]255,127,63,63,31,15,7,1,128,192,240,240,248,254,254,255
  382. 3910 [131]254,254,254,126,126,126,126,255,248,248,240,224,0,0,0,0
  383. 3920 [131]0,0,16,255,255,255,240,240,0,0,0,255,255,255,32,0
  384. 3930 [131]0,0,48,249,255,255,48,0,0,0,224,248,252,252,8,0
  385. 3940 [131]0,0,31,63,63,63,0,0,1,7,143,255,255,255,0,0
  386. 3950 [131]126,126,126,126,126,126,126,0,128,224,240,248,124,30,31,31
  387. 3960 [131]1,3,7,255,255,255,30,0,0,0,252,255,255,127,63,255
  388. 3970 [131]60,66,153,161,161,153,66,60
  389. 3980 [131]60,60,102,102,126,126,102,0,120,124,102,124,126,103,126,0
  390. 3990 [131]60,126,102,96,102,126,60,0,124,126,99,99,99,126,124,0
  391. 4000 [131]127,126,96,124,96,126,127,0,127,126,124,96,124,120,112,0
  392. 4010 [131]62,121,112,115,115,63,31,0,115,115,115,127,127,115,115,0
  393. 4020 [131]0,0,0,0,0,0,0,0,28,28,28,28,28,28,28,0
  394. 4030 [131]127,127,7,7,103,63,31,0,115,119,126,126,126,119,115,0
  395. 4040 [131]112,112,112,112,112,126,127,0,119,127,107,107,107,99,119,0
  396. 4050 [131]103,115,123,127,127,119,115,0,62,127,119,119,119,127,62,0
  397. 4060 [131]126,127,115,127,126,112,112,0,62,127,99,111,111,127,62,0
  398. 4070 [131]126,127,115,127,124,126,119,0,63,126,96,62,3,63,126,0
  399. 4080 [131]127,127,93,28,28,28,28,0,119,119,119,119,127,127,28,0
  400. 4090 [131]119,119,50,58,58,28,8,0,119,99,107,107,107,127,54,0
  401. 4100 [131]99,119,54,62,62,119,99,0,119,59,31,14,14,14,14,0
  402. 4110 [131]127,63,7,28,112,126,127,0
  403. 4120 [131]0,24,60,102,102,60,24,0
  404. 4130 [131]0,12,28,60,12,12,12,0
  405. 4140 [131]0,12,18,4,8,16,30,0,0,30,2,4,2,18,30,0
  406. 4150 [131]0,16,16,16,20,30,4,0,0,30,16,28,2,2,28,0
  407. 4160 [131]0,12,18,16,28,18,12,0,0,30,18,4,8,16,16,0
  408. 4170 [131]0,12,18,12,18,18,12,0,0,24,36,28,4,36,24,0
  409. 4180 [131]0,0,0,126,0,0,0,0,0,0,24,0,0,24,0,0,24,62,96,60,6,124,24,0
  410. 4190 [131]0,0,0,0,0,24,24,48,0,0,0,0,0,24,24,0
  411. 4200 [143] DATAS TEXT
  412. 4210 [131]110,103,102,101,88,106,97,103,32,89,106,109,102,103,111,32,109,102,91
  413. 4220 [131]32,101,88,106,99,109,107,32,89,103,91,92
  414. 4230 [131]87,32,88,104,106,97,100,32,116,124,123,120
  415. 4240 [131]107,90,95,111,97,92,106,97,94,99,92,97,108,107
  416. 4250 [131]94,106,88,91,126,32,116,32,103,91,92,106,32,117
  417. 4260 [143] DATAS MASCHINENROUTINE
  418. 4270 [131]120,169,22,141,20,3,169,112,141,21,3,169,8,133,2,169,240,141,26,208
  419. 4280 [131]88,96,169,240,141,26,208,198,2,208,23,169,8,133,2,170,173,0,220,41
  420. 4290 [131]16,208,11,173,21,208,73,3,141,21,208,76,49,234,173,0,220,41,1,208
  421. 4300 [131]6,206,3,208,206,1,208,173,0,220,41,2,208,6,238,3,208,238,1,208,173
  422. 4310 [131]0,220,41,4,208,6,206,2,208,206,0,208,173,0,220,41,8,208,6,238,2,208
  423. 4320 [131]238,0,208,173,0,208,201,255,208,19,173,16,208,9,7,141,16,208,169
  424. 4330 [131]1,141,0,208,141,2,208,76,49,234,173,0,208,201,0,208,19,173,16,208
  425. 4340 [131]41,248,141,16,208,169,254,141,0,208,141,2,208,76,49,234,173,0,208
  426. 4350 [131]197,167,176,16,173,1,208,197,168,144,9,173,16,208,197,169,208,2,230
  427. 4360 [131]170,173,31,208,41,3,240,2,133,171,169,0,141,31,208,173,30,208,168
  428. 4370 [131]41,252,240,30,152,73,248,45,21,208,141,21,208,173,200,195,201,124
  429. 4380 [131]208,9,169,114,141,200,195,238,199,195,234,238,200,195,230,180,169
  430. 4390 [131]0,141,30,208,76,49,234,169,0,141,11,212,169,10,141,12,212,169,0,141
  431. 4400 [131]13,212,169,3,141,8,212,169,128,141,7,212,169,129,141,11,212,169,15
  432. 4410 [131]141,24,212,96,169,255,141,20,212,169,127,141,24,212,169,9,141,19
  433. 4420 [131]212,169,55,141,15,212,169,33,141,14,212,96,169,5,141,134,196,169
  434. 4430 [131]81,141,135,196,169,84,141,136,196,169,42,141,198,196,169,138,141
  435. 4440 [131]199,196,169,160,141,200,196,96,169,21,141,134,196,169,85,141,135
  436. 4450 [131]196,141,136,196,169,170,141,198,196,141,199,196,169,168,141,200,196
  437. 4460 [131]96,169,83,162,0,157,158,195,232,228,181,208,248,169,10,162,0,157
  438. 4470 [131]158,219,232,224,10,208,248,169,7,162,0,157,168,219,232,224,11,208
  439. 4480 [131]248,169,5,162,0,157,179,219,232,224,13,208,248,234,162,0,160,1,189
  440. 4490 [131]1,114,157,153,195,152,157,153,219,232,224,5,208,241,96,162,0,189
  441. 4500 [131]8,114,157,193,195,232,224,6,208,245,162,0,165,247,141,199,195,165
  442. 4510 [131]248,141,200,195,169,115,162,0,157,201,195,232,224,3,208,248,234,162
  443. 4520 [131]0,169,1,157,193,219,232,224,37,208,248,162,0,189,16,114,157,205,195
  444. 4530 [131]232,224,11,208,245,165,250,141,216,195,162,0,189,32,114,157,218,195
  445. 4540 [131]232,224,13,208,245,96,96,114,92,97,108,126,0,0,100,103,95,102,126
  446. 4550 [131]127,0,0,95,92,100,97,90,103,104,108,92,106,126,0,0,0,0,0,107,92,97
  447. 4560 [131]107,101,103,94,106,88,104,95,126,83,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  448. 4570 A$[178]"EXP*THEN(null)(null)TOGET(null)(null)(null)- (null)GETTHENORGETSPC(":[151]V[170]21,2:O[178]224:[151]V[170]16,0
  449. 4580 [151]56576,[194](56576)[175]252:[151]53272,8:[151]648,192
  450. 4590 [153]"LOAD":[129]J[178]1[164]6:[153]:[130]:[151]V[170]3,101
  451. 4600 [129]K[178]0[164]18
  452. 4610 [151]V[170]2,O
  453. 4620 B$[178][200](A$,K)
  454. 4630 [153][163]31[171]K);B$"ON"
  455. 4640 [129]L[178]1[164]50:[130]
  456. 4650 O[178]O[171]8:[130]
  457. 4660 [129]T[178]1[164]3
  458. 4670 [151]49570[170]T,[194](25000[170]T):[151]55714[170]T,14:[129]I[178]1[164]25:[130]
  459. 4680 [130]T
  460. 4690 [129]E[178]1[164]28
  461. 4700 [151]49638[170]E,[194](25003[170]E):[151]55782[170]E,14:[129]I[178]1[164]25:[130]
  462. 4710 [130]E
  463. 4720 [129]Y[178]1[164]12
  464. 4730 [151]49726[170]Y,[194](25031[170]Y):[151]55870[170]Y,14:[129]I[178]1[164]25:[130]
  465. 4740 [130]Y
  466. 4750 [129]Y[178]1[164]28
  467. 4760 [151]49838[170]Y,[194](25043[170]Y):[151]55982[170]Y,14:[129]I[178]1[164]25:[130]
  468. 4770 [130]Y
  469. 4780 [161]N$:[139]N$[178]""[167]4780
  470. 4790 [139]N$[178]"1"[167]AB[178]230:G[178]15:[142]
  471. 4800 [139]N$[178]"2"[167]AB[178]220:G[178]8:[142]
  472. 4810 [137]4780
  473.